
* Open log
capture log close
log using "Data analysis\cbld-description01-fig01", replace text


* *********************************************************************************
* Fig. 1. Consensus decision making in the Council of the European Union, 1994�2006
* *********************************************************************************

* Programme:	cbld-description01-fig01.do
* Project:		Council coalition building
* Author:		Frank Haege, Department of Politics and Administration, University of Limerick
* Contact:		frank.haege@ul.ie

* Description
*************
* This do-file inputs data on consensual decision-making in the Council and 
* generates a plot of the rate of consensual decisions over time 
* The data for the years 1994 up to and including 2002 are directly taken 
* from Table 1a in Heisenberg (2005: 72); the data for the years 2003 to 2006 
* are calculated from Table 3 in Hagemann & De Clerck-Sachsse (2007: 13).
* The data sets produced by the do-file are used in the generation of Figure 4
* and Figures A1 to A8 in the online appendix


* Set up Stata
version 11
clear all
macro drop _all
set linesize 80
set more off

* Load empirically observed consensus rate data
use "Experiments\Other data\cbld-management05a.dta", clear	

* Plot proportion of consensus decisions over time
twoway (scatter consensus year, /*
	*/ ylabel(50 60:100) xlabel(1994 1995:2006, angle(45)) xscale(range(1993 2006.5)) /*
	*/ mcolor(white) msize(medlarge) xline(1995 2004, lcolor(grey) lpattern(.)) /*
	*/ text(58 1993.9 "12" "Member" "States") /*
	*/ text(58 1999.5 "15" "Member" "States") /*
	*/ text(58 2005.5 "25" "Member" "States") ) /*
	*/ (lowess consensus year, lcolor(white) bwidth(0.9)) /*
	*/ , ytitle("Consensual Decisions (%)") legend(off)


* Exit do-file
log close
exit
